home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / _title1.bas < prev    next >
Encoding:
BASIC Source File  |  1997-06-06  |  879 b   |  43 lines
  1.  
  2.  /* タイトル出現 その１
  3.  
  4. int x,y,s,x0=9
  5. float z
  6. dim d(200,99*2+99)
  7. screen 0,3,1,1
  8. sp_init():sp_clr(0)
  9. spfile_def("title.sp",1)
  10. palfile_def("title.pal",1)
  11. sp_disp(1):sp_on(0,127)
  12. bg_set(0,0,1)
  13.  
  14.  /* タイトルを置く
  15. for y=0 to 5:for x=0 to 6
  16. bg_put(0,x0+x*2  ,5+y*2  ,&h104+x*4+y*28)
  17. bg_put(0,x0+x*2  ,5+y*2+1,&h105+x*4+y*28)
  18. bg_put(0,x0+x*2+1,5+y*2  ,&h106+x*4+y*28)
  19. bg_put(0,x0+x*2+1,5+y*2+1,&h107+x*4+y*28)
  20. next:next
  21.  
  22.  /* ラスタスクロールデータの作成
  23. print " 準備中"
  24. for x=0 to 200
  25. z=6000#/(x+20)-26.4
  26. /*z=200-x
  27. for y=0 to 99*2+99
  28.     d(x,y)=int(z*sin(z*(y/2)/200)+.5) and &h1ff
  29. next:next:beep
  30.  
  31. while 1
  32. print " なにかキーを押して下さい";:asc(inkey$):cls
  33.  
  34.  /* ラスタスクロールデータのセット
  35. ras_scroll_set(0,d,,,55)
  36.  /* ラスタスクロール開始
  37. ras_scroll_stat(1,,,1)
  38.  
  39.  /* スクロール終了まで待つ
  40. while ras_scroll_stat(-1)>=0:endwhile
  41. endwhile
  42.  
  43.